1 REM PAR J.F. SEHAN
2 REM EXTRAIT DU LIVRE
3 REM "ETUDES POUR ZX81"
4 REM TOME 2
5 REM 
10 REM GRAPHIQUES
20 REM 
30 LET G=10240
40 LET L=USR G
50 REM BL CL
60 LET A=255/2
70 LET B=191/2
200 FOR I=0 TO 234 STEP 3
210 LET I1=I/(2*PI)
220 LET X=COS (I1)*90+A
230 LET Y=SIN (I1)*90+B
240 LET L=USR G
250 REM MO A B DR X Y
300 NEXT I
400 IF INKEY$="" THEN GOTO 400
410 IF INKEY$<>"P" THEN GOTO 440
420 LET L=USR G
430 REM COPY
440 POKE G,0
999 STOP
